home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 September / 1994-09b.d64 / screensaver x 5 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  113 lines
  1. 100 rem  five screensaver effects
  2. 105 rem
  3. 108 ifpeek(789)=192thensys49152
  4. 110 print"poking";:forj=49152toj+403:print".";:readx:c=c+x:pokej,x:next
  5. 115 print"":if c<>52401 then print"error in data!":stop
  6. 120 input"minutes to wait (.1-18)";x:ifx<.1orx>18thenprint"invalid":goto120
  7. 125 x=x*60*60:y=int(x/256):x=x-y*256:poke49155,x:poke49156,y
  8. 130 print"which screensaver effect to load:"
  9. 135 print"1-inversion effect
  10. 140 [153]"2-random effect
  11. 145 print"3-increment effect
  12. 150 [153]"4-horiz.scroll effect
  13. 155 print"5-termites!"
  14. 160 inputx$:x=val(x$):ifx<1orx>5thenprint"invalid":goto130
  15. 165 y=49920:ifx>1thenfori=1tox-1:forj=0to-1step0:readj:next:next
  16. 170 readx:ifx>=0thenpokey,x:y=y+1:print".";:goto170
  17. 175 sys 49152:print"[147]screensaver installed!"
  18. 180 print"use sys 49152 to alternately activate
  19. 185 [153]"and deactivate it"
  20. 190 [153]"poke 49159 with a value to change each
  21. 195 print"screensaver's effect
  22. 200 [153]"newononon":[128]
  23. 205 :    irq screen[148]r caller
  24. 210 [131] 24,144,14,180,0,0,195,23,0,0,0,36,193,199,192,78,192,173,20,3,174
  25. 215 [131] 21,3,236,16,192,208,15,173,143,192,174,144,192,120,141,20,3,142,21
  26. 220 [131] 3,88,96,141,143,192,142,144,192,173,15,192,174,16,192,120,141,20,3
  27. 225 [131] 142,21,3,88,162,0,142,149,193,142,147,193,142,148,193,142,151,193
  28. 230 [131] 96,174,151,193,240,14,16,57,169,0,141,151,193,174,152,193,154,24,144
  29. 235 [131] 45,174,141,2,208,6,166,197,224,64,240,37,162,0,142,147,193,142,148
  30. 240 [131] 193,174,149,193,240,21,186,173,14,192,157,6,1,173,13,192,157,5,1,162
  31. 245 [131] 1,142,151,193,206,149,193,76,255,255,174,149,193,208,248,238,147,193
  32. 250 [131] 208,3,238,148,193,72,56,173,147,193,237,3,192,173,148,193,237,4,192
  33. 255 [131] 104,144,223,186,142,152,193,173,12,192,72,173,11,192,72,238,149,193
  34. 260 [131] 169,34,72,72,72,72,24,144,199,165,1,72,37,248,120,133,1,160,40,185
  35. 265 [131] 2,212,153,2,0,136,16,247,160,56,185,197,212,153,197,0,136,16,247,173
  36. 270 [131] 134,214,141,134,2,173,135,214,141,135,2,173,146,214,141,146,2,173
  37. 275 [131] 165,214,141,165,2,104,133,1,88,56,169,208,170,32,77,193,56,169,220
  38. 280 [131] 162,4,32,77,193,56,169,216,170,32,77,193,173,153,193,141,0,221,169
  39. 285 [131] 255,141,151,193,208,249,24,169,208,170,32,77,193,24,169,0,162,212
  40. 290 [131] 32,77,193,24,169,216,170,32,77,193,24,169,4,133,204,162,220,32,77
  41. 295 [131] 193,173,0,221,141,153,193,108,5,192,141,117,193,142,122,193,169,3
  42. 300 [131] 141,150,193,165,1,72,72,41,248,144,5,170,104,168,176,3,168,104,170
  43. 305 [131] 169,0,141,116,193,141,121,193,120,134,1,173,255,255,132,1,141,255
  44. 310 [131] 255,238,116,193,238,121,193,208,238,238,117,193,238,122,193,206,150
  45. 315 [131] 193,16,227,104,133,1,88,96,0
  46. 320 :    inversi[145] effect
  47. 325 [131] 169,0,133,2,169,4,133,3,165,2,24,109,7,192,133,2,144,12,230,3,165
  48. 330 [131] 3,201,8,144,4,233,4,133,3,160,0,177,2,73,128,145,2,172,8,192,234,234
  49. 335 [131] 136,208,251,240,216,0,-1
  50. 340 :    r[175]om mess effect
  51. 345 [131] 238,32,208,206,33,208,162,0,164,162,185,0,160,157,0,216,168,185,0
  52. 350 [131] 164,157,0,217,168,185,0,168,157,0,218,168,185,0,167,157,0,219,168
  53. 355 [131] 232,208,225,169,0,133,2,169,4,133,3,165,2,24,109,7,192,133,2,144,12
  54. 360 [131] 230,3,165,3,201,8,144,4,233,4,133,3,160,0,177,2,73,128,145,2,172,7
  55. 365 [131] 192,136,208,253,240,218,0,-1
  56. 370 :    inc[143]ent to black effect
  57. 375 [131] 160,0,190,0,4,224,32,240,5,232,138,153,0,4,190,0,5,224,32,240,5,232
  58. 380 [131] 138,153,0,5,190,0,6,224,32,240,5,232,138,153,0,6,190,0,7,224,32,240
  59. 385 [131] 5,232,138,153,0,7,200,208,205,172,7,192,32,62,195,24,144,196,200,165
  60. 390 [131] 162,136,208,1,96,197,162,240,252,208,244,73,-1
  61. 395 :    sideways scroll effect
  62. 400 [131] 169,40,133,3,165,162,168,121,0,166,41,15,133,2,185,0,165,133,6,44
  63. 405 [131] 7,192,48,13,173,4,220,141,32,208,168,185,0,167,141,33,208,32,51,195
  64. 410 [131] 164,2,32,61,195,198,3,208,244,240,205,165,6,16,3,76,74,195,76,149
  65. 415 [131] 195,200,165,162,136,208,1,96,197,162,240,252,208,244,173,0,4,141,232
  66. 420 [131] 7,173,0,216,141,232,219,160,0,185,1,4,153,0,4,185,1,216,153,0,216
  67. 425 [131] 200,208,241,185,1,5,153,0,5,185,1,217,153,0,217,200,208,241,185,1
  68. 430 [131] 6,153,0,6,185,1,218,153,0,218,200,208,241,185,1,7,153,0,7,185,1,219
  69. 435 [131] 153,0,219,200,208,241,96,160,0,136,185,0,7,153,1,7,185,0,219,153,1
  70. 440 [131] 219,152,208,240,136,185,0,6,153,1,6,185,0,218,153,1,218,152,208,240
  71. 445 [131] 136,185,0,5,153,1,5,185,0,217,153,1,217,152,208,240,136,185,0,4,153
  72. 450 [131] 1,4,185,0,216,153,1,216,152,208,240,173,232,7,141,0,4,173,232,219
  73. 455 [131] 141,0,216,169,0,141,0,8,96,196,-1
  74. 460 :    termites!
  75. 465 [131]76,16,197,165,162,173,4,220,96,192,192,192,192,192,192,192,125,110
  76. 470 [131]53,134,130,46,3,1,0,64,128,192,248,0,2,0,16,48,162,2,32,47,195,202
  77. 475 [131]224,255,208,248,76,34,195,24,169,0,133,2,141,28,195,141,29,195,141
  78. 480 [131]31,195,169,32,133,3,189,16,195,74,74,141,32,195,160,8,24,173,28,195
  79. 485 [131]109,32,195,141,28,195,173,29,195,105,0,141,29,195,136,240,3,76,75
  80. 490 [131]195,24,165,2,109,28,195,133,2,165,3,109,29,195,133,3,189,19,195,74
  81. 495 [131]74,74,141,32,195,160,200,24,165,2,109,32,195,133,2,165,3,105,0,133
  82. 500 [131]3,136,208,239,160,120,24,165,2,109,32,195,133,2,165,3,105,0,133,3
  83. 505 [131]136,208,239,24,165,2,125,19,195,133,2,165,3,105,0,133,3,173,32,195
  84. 510 [131]10,10,10,141,32,195,56,165,2,237,32,195,133,2,165,3,233,0,133,3,24
  85. 515 [131]189,16,195,125,16,195,141,30,195,173,29,195,105,0,141,31,195,56,173
  86. 520 [131]30,195,237,28,195,141,30,195,173,31,195,237,29,195,141,31,195,173
  87. 525 [131]30,195,141,32,195,201,0,208,8,169,192,141,33,195,76,26,196,201,2,208
  88. 530 [131]8,169,48,141,33,195,76,26,196,201,4,208,8,169,12,141,33,195,76,26
  89. 535 [131]196,169,3,141,33,195,234,32,0,197,234,45,33,195,201,0,208,67,189,25
  90. 540 [131]195,172,32,195,192,0,240,5,74,136,76,44,196,141,32,195,32,2,197,109
  91. 545 [131]32,195,145,2,189,22,195,201,0,208,8,169,3,157,22,195,76,163,196,201
  92. 550 [131]1,208,6,222,22,195,76,201,196,201,2,208,6,222,22,195,76,181,196,222
  93. 555 [131]22,195,76,219,196,169,255,56,237,33,195,141,32,195,32,2,197,45,32
  94. 560 [131]195,145,2,189,22,195,201,0,208,6,254,22,195,76,181,196,201,1,208,6
  95. 565 [131]254,22,195,76,219,196,201,2,208,6,254,22,195,76,163,196,169,0,157
  96. 570 [131]22,195,76,201,196,56,189,16,195,233,1,144,4,157,16,195,96,169,159
  97. 575 [131]157,16,195,96,24,189,16,195,105,1,201,160,240,4,157,16,195,96,169
  98. 580 [131]0,157,16,195,96,56,189,19,195,233,1,144,4,157,19,195,96,169,199,157
  99. 585 [131]19,195,96,24,189,19,195,105,1,201,200,240,4,157,19,195,96,169,0,157
  100. 590 [131]19,195,96,255,192,192,192,192,192,192,192,192,192,192,192,192,192
  101. 595 [131]192,192,192,160,0,76,192,197,31,9,32,133,3,177,2,24,96,192,192,160
  102. 600 [131]0,132,2,169,224,133,3,162,32,169,0,145,2,200,208,251,230,3,202,208
  103. 605 [131]246,32,3,195,141,134,2,169,147,32,210,255,173,17,208,9,32,141,17,208
  104. 610 [131]173,24,208,41,255,9,56,141,24,208,173,22,208,9,16,141,22,208,173,0
  105. 615 [131]221,41,252,9,0,141,0,221,32,3,195,141,32,208,32,3,195,141,33,208,162
  106. 620 [131]2,169,136,32,160,197,24,105,20,157,16,195,169,187,32,160,197,24,105
  107. 625 [131]20,157,19,195,169,3,32,160,197,157,22,195,202,16,223,162,0,32,3,195
  108. 630 [131]157,0,207,157,0,206,157,0,205,157,0,204,202,208,241,76,34,195,244
  109. 635 [131]192,192,192,192,133,2,169,0,133,3,32,3,195,24,101,3,197,2,176,244
  110. 640 [131]96,192,192,192,192,192,192,192,192,192,192,192,192,192,192,192,165
  111. 645 [131]3,41,31,9,224,133,3,165,1,133,4,41,248,120,133,1,177,2,72,165,4,133
  112. 650 [131]1,88,104,24,96,192,192,-1
  113.